#!/usr/bin/perl -w
use warnings;
use strict;


fork_test();

#eval_test();

sub fork_test
{
	print "stating fork \n";
	my $procid = fork();
	
	if($procid == 0)
	{
		print "this is child process \n";
	}
	else 
	{
		print ( "this is parent  process \n");
		exit(0);
	}
	
	print "Continuing .. \n";
}

sub eval_test()
{
	my $exec_cmd = " print \(\"hello world\"\)  ";
	 eval($exec_cmd);

	print "Continue \n";
	
}